home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / dll / readonly / readonly.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-11-29  |  1.6 KB  |  53 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Make Text Box Read Only"
  4.    ClientHeight    =   2805
  5.    ClientLeft      =   2250
  6.    ClientTop       =   2160
  7.    ClientWidth     =   3510
  8.    Height          =   3210
  9.    Left            =   2190
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2805
  12.    ScaleWidth      =   3510
  13.    Top             =   1815
  14.    Width           =   3630
  15.    Begin MaskEdBox mskTest 
  16.       Height          =   495
  17.       Left            =   600
  18.       PromptChar      =   "_"
  19.       TabIndex        =   2
  20.       Top             =   1080
  21.       Width           =   1215
  22.    End
  23.    Begin CommandButton cmdReadOnly 
  24.       Caption         =   "&Read Only"
  25.       Height          =   495
  26.       Left            =   720
  27.       TabIndex        =   1
  28.       Top             =   1920
  29.       Width           =   1215
  30.    End
  31.    Begin TextBox Text1 
  32.       DataField       =   "Author"
  33.       DataSource      =   "Data1"
  34.       Height          =   375
  35.       Left            =   600
  36.       TabIndex        =   0
  37.       Text            =   "Text1"
  38.       Top             =   360
  39.       Width           =   1935
  40.    End
  41. Option Explicit
  42. 'SendMessage
  43. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal sFindText As Any) As Long
  44. 'WM_USER
  45. Const WM_USER = &H400
  46. 'EM_SETREADONLY
  47. Const EM_SETREADONLY = (WM_USER + 31)
  48. Sub cmdReadOnly_Click ()
  49. Dim ret As Long
  50. ret& = SendMessage(text1.hWnd, EM_SETREADONLY, True, 0&)
  51. ret& = SendMessage(mskTest.hWnd, EM_SETREADONLY, True, 0&)
  52. End Sub
  53.